scripts/Radioactive Decay.AESL

   1 IDENTIFICATION DIVISION
   2 PROGRAM-ID Radioactive_Decay
   3
   4 ENVIRONMENT DIVISION
   5 ENGINE Anabrid-THAT
   6 REQUIRES COEFFICIENT 2
   7 REQUIRES INTEGRATOR 1
   8 REQUIRES INVERTER 1
   9
  10 DATA DIVISION
  11 OUTPUT OUTPUT.X N
  12 COEFFICIENT.1 InitialValue
  13 COEFFICIENT.2 Decay
  14
  15 PROGRAM DIVISION
  16 +1 -> COEFFICIENT.InitialValue -> N0
  17 N’, IC:N0 -> INTEGRATOR -> -N
  18 -N -> COEFFICIENT.Decay -> -lambda*N=N’
  19 -N -> INVERTER -> N
  20
  21 OPERATION DIVISION
  22 MODE REPEAT
  23 OP-TIME 20ms